ƼֶӴ뷽ʽװ(6´ֻ2008汾ʹãͰ汾)

ע⣺
ȷ̳ҳԭȫٰװָԭ̳
⣬ԼȻ֪װ˵ǲ⣬ʵûرݵļ
Ȼǳû漰Ҫĵļʼңdiybbsxp@qq.com
עҪ޸ĵDKͼļҸĺ̻ʸְҵ˾ʱʱ
ߣΪɡ

1ѱĿ¼ dk_newpic_plus.aspDK_NEWPIC_UP.ASPϴô

2ֱü±ԼõAddPost.aspAddTopic.aspDefault.asp
   мǣü±ҪFrontPageDreaamweaver

3AddPost.aspļĴҵ´飺#################################

	Message=Message&"<li>ظɹ<li>   ... () ...
	succeed Message,"ShowForum.asp?ForumID="&ForumID&""

      һУ´룺###############################














'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'XXX                                      XXX 
'XXX         XXXXXXXX      XXX   XX       XXX
'XXX         XXX    XX    XXX XXX         XXX
'XXX        XXX    XX    XXXX             XXX
'XXX       XXX    XX    XXX  XX           XXX 
'XXX      XXXXXXXX     XXX     XXX        XXX
'XXX                                      XXX
'XXXXXXXXXXX [ͼR] XXXXXXXXXXXXXXX
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'޸ģͬ޸Addtopic.aspͬط

piclimit=3           'ÿֻܵͼƬ
'ǽֹ¼İFORUMID | ָ
kfids=""

'ִַ֣Ͳ¼ַ | ָӢıСдĬα顢ͷļмͼ
dkkillword="/emot|/face/|affix.gif|/horoscope|/level|/star|/plus"
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
if Subject=empty then Subject="Re:"&conn.execute("select topic from [BBSXP_Threads] where Threadid="&Threadid&" ")(0)
if not isnumeric(""&ForumID&"") then ForumID=conn.execute("Select forumid From [BBSXP_Threads] where ID="&ThreadID&"")(0)
if not isnumeric(""&id&"") then id=ThreadID
	if kfids<>empty then
	if instr("|"&kfids&"|","|"&ForumID&"|")>0 then piclimit=0
	end if

Content0=body

content0=replace(content0,"border=","BORDER=")
content0=replace(content0,"img]","IMG]")

content0=replace(content0," BORDER=0","")
savepic=0
allsavepic=0'ͳܹ¼
	if instr(content0,"[IMG]")>0 then
	content_1=split(content0,"[IMG]")
		for i=1 to ubound(content_1)
		content_2=split(content_1(i),"[/IMG]")
		picnopass=""
			if dkkillword<>empty then'ǷηΧھͲ¼
			dkkillword=Lcase(dkkillword)
				if instr(dkkillword,"|")>0 then'
				dkkillword0=split(dkkillword,"|")
					for ikw=0 to ubound(dkkillword0)
						if instr(lcase(content_2(0)),dkkillword0(ikw))>0 then
						picnopass="yes"
						exit for
						end if
					next
				else
					if instr(lcase(content_2(0)),dkkillword)>0 then picnopass="yes"'
				end if
			end if			
			
		checksameurl=conn.execute("Select count(*)from [DK_NEWPIC_PLUS] where picurl='"&content_2(0)&"'")(0)
			if picnopass=empty and checksameurl=0 then
			picurl=content_2(0)
			picreadme=Subject
			username=CookieUserName
				if savepic<piclimit then
				savepic=savepic+1
				sql="insert into [DK_NEWPIC_PLUS] (topicid,picurl,username,picreadme) values ('"&ThreadID&"','"&picurl&"','"&username&"','"&picreadme&"')":conn.Execute(SQL)
				allsavepic=allsavepic+1
				end if
			end if
		next
	end if


content0=replace(content0,"<img","<IMG")
content0=replace(content0,"&QUOT;","&quot;")
content0=replace(content0,"BORDER=","border=")
content0=replace(content0,"WIDTH=","width=")
content0=replace(content0,"HEIGHT=","height=")
content0=replace(content0,"SRC=","src=&quot;")
content0=replace(content0,"src=","src=&quot;")
content0=replace(content0,chr(34),"&quot;")
content0=replace(content0,">","&quot;>")
content0=replace(content0," border=","&quot; border=")
content0=replace(content0," width=","&quot; width=")
content0=replace(content0," height=","&quot; height=")
content0=replace(content0,"&quot;&quot;","&quot;")
content0=replace(content0,"&quot;&quot;","&quot;")
content0=replace(content0,"&quot;&quot;","&quot;")

	if instr(content0,"<IMG")>0 and savepic<piclimit then
	content_1=split(content0,"<IMG")

		for i=1 to ubound(content_1)
		content_2=split(content_1(i),"src=&quot;")
			if instr(content_2(1),"&quot;")>0 then
			content_3=split(content_2(1),"&quot;")
			picnopass=""
			
			if instr(right(lcase(content_3(0)),7),"/")>0 then
			'/λֵGIFͼƬ /1.gif   /50.gif һǱͼƬ
			if isnumeric(replace(left(right(lcase(content_3(0)),6),2),"/","")) and right(lcase(content_3(0)),4)=".gif" then picnopass="yes"
			end if
			
				if dkkillword<>empty then'ǷηΧھͲ¼
				dkkillword=lcase(dkkillword)
					if instr(dkkillword,"|")>0 then'
					dkkillword0=split(dkkillword,"|")
						for ikw=0 to ubound(dkkillword0)
							if instr(lcase(content_3(0)),dkkillword0(ikw))>0 then
							picnopass="yes"
							exit for
							end if
						next	
					else
						if instr(lcase(content_3(0)),dkkillword)>0 then picnopass="yes"'
					end if
				end if	
			
			
		checksameurl=conn.execute("Select count(*)from [DK_NEWPIC_PLUS] where picurl='"&content_3(0)&"'")(0)
				if picnopass=empty and checksameurl=0 then
				picurl=content_3(0):picreadme=Subject:username=CookieUserName
					if savepic<piclimit then
					savepic=savepic+1
					sql="insert into [DK_NEWPIC_PLUS] (topicid,picurl,username,picreadme) values ('"&ThreadID&"','"&picurl&"','"&username&"','"&picreadme&"')":conn.Execute(SQL)
					allsavepic=allsavepic+1
					end if
				end if
			end if
		next
end if
if allsavepic>0 then Message=Message&"<li>¼ﱾ <font color=ff0000>"&allsavepic&"</font> ͼƬݵҳͼ(¼"&piclimit&")"

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'XXXXXXXXX [ͼRν] XXXXXXXXXXX
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX














4AddTopic.aspļĴҵ´飺#################################

	Message="<li>ⷢɹ</li>   ... () ...
	succeed Message,"ShowForum.asp?ForumID="&ForumID&""

      һУ´룺################################





	

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'XXX                                      XXX 
'XXX         XXXXXXXX      XXX   XX       XXX
'XXX         XXX    XX    XXX XXX         XXX
'XXX        XXX    XX    XXXX             XXX
'XXX       XXX    XX    XXX  XX           XXX 
'XXX      XXXXXXXX     XXX     XXX        XXX
'XXX                                      XXX
'XXXXXXXXXXX [ͼN] XXXXXXXXXXXXXXX
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'޸ģͬ޸AddPost.aspͬط

piclimit=3           'ÿֻܵͼƬ
'ǽֹ¼İFORUMID | ָ
kfids=""

'ִַ֣Ͳ¼ַ | ָӢıСдĬα顢ͷļмͼ
dkkillword="/emot|/face/|affix.gif|/horoscope|/level|/star|/plus"

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
if Subject=empty then Subject=conn.execute("select topic from [BBSXP_Threads] where Threadid="&Threadid&" ")(0)

if not isnumeric(""&ForumID&"") then ForumID=conn.execute("Select forumid From [BBSXP_Threads] where ID="&ThreadID&"")(0)
if not isnumeric(""&id&"") then id=ThreadID
if kfids<>empty then
		if instr("|"&kfids&"|","|"&ForumID&"|")>0 then piclimit=0
end if

Content0=body

content0=replace(content0,"border=","BORDER=")
content0=replace(content0,"img]","IMG]")
content0=replace(content0," BORDER=0","")
savepic=0
allsavepic=0'ͳܹ¼
	if instr(content0,"[IMG]")>0 then
	content_1=split(content0,"[IMG]")
		for i=1 to ubound(content_1)
		content_2=split(content_1(i),"[/IMG]")
		picnopass=""
			if dkkillword<>empty then'ǷηΧھͲ¼
			dkkillword=Lcase(dkkillword)
				if instr(dkkillword,"|")>0 then'
				dkkillword0=split(dkkillword,"|")
					for ikw=0 to ubound(dkkillword0)
						if instr(lcase(content_2(0)),dkkillword0(ikw))>0 then
						picnopass="yes"
						exit for
						end if
					next	
				else
					if instr(lcase(content_2(0)),dkkillword)>0 then picnopass="yes"'
				end if
			end if	
		checksameurl=conn.execute("Select count(*)from [DK_NEWPIC_PLUS] where picurl='"&content_2(0)&"'")(0)
			if picnopass=empty and checksameurl=0 then
			picurl=content_2(0)
			picreadme=Subject
			username=CookieUserName
				if savepic<piclimit then
				savepic=savepic+1
				sql="insert into [DK_NEWPIC_PLUS] (topicid,picurl,username,picreadme) values ('"&ThreadID&"','"&picurl&"','"&username&"','"&picreadme&"')":conn.Execute(SQL)
				allsavepic=allsavepic+1
				end if
			end if
		next
	end if


content0=replace(content0,"<img","<IMG")
content0=replace(content0,"&QUOT;","&quot;")
content0=replace(content0,"BORDER=","border=")
content0=replace(content0,"WIDTH=","width=")
content0=replace(content0,"HEIGHT=","height=")
content0=replace(content0,"SRC=","src=&quot;")
content0=replace(content0,"src=","src=&quot;")
content0=replace(content0,chr(34),"&quot;")
content0=replace(content0,">","&quot;>")
content0=replace(content0," border=","&quot; border=")
content0=replace(content0," width=","&quot; width=")
content0=replace(content0," height=","&quot; height=")
content0=replace(content0,"&quot;&quot;","&quot;")
content0=replace(content0,"&quot;&quot;","&quot;")
content0=replace(content0,"&quot;&quot;","&quot;")
	if instr(content0,"<IMG")>0 and instr(content0,"src=&quot;")>0 and savepic<piclimit then
	content_1=split(content0,"<IMG")
		for i=1 to ubound(content_1)
		content_2=split(content_1(i),"src=&quot;")
			if instr(content_2(1),"&quot;")>0 then
			content_3=split(content_2(1),"&quot;")
			picnopass=""
			
			if instr(right(lcase(content_3(0)),7),"/")>0 then
			'/λֵGIFͼƬ /1.gif   /50.gif һǱͼƬ
			if isnumeric(replace(left(right(lcase(content_3(0)),6),2),"/","")) and right(lcase(content_3(0)),4)=".gif" then picnopass="yes"
			end if
			
				if dkkillword<>empty then'ǷηΧھͲ¼
					if instr(dkkillword,"|")>0 then'
					dkkillword=lcase(dkkillword)
					dkkillword0=split(dkkillword,"|")
						for ikw=0 to ubound(dkkillword0)
							if instr(lcase(content_3(0)),dkkillword0(ikw))>0 then
							picnopass="yes"
							exit for
							end if
						next	
					else
						if instr(lcase(content_3(0)),dkkillword)>0 then picnopass="yes"'
					end if
				end if	
			
			
			checksameurl=conn.execute("Select count(*)from [DK_NEWPIC_PLUS] where picurl='"&content_3(0)&"'")(0)
				if picnopass=empty and checksameurl=0 then
				picurl=content_3(0):picreadme=Subject:username=CookieUserName
					if savepic<piclimit then
					savepic=savepic+1
					sql="insert into [DK_NEWPIC_PLUS] (topicid,picurl,username,picreadme) values ('"&ThreadID&"','"&picurl&"','"&username&"','"&picreadme&"')":conn.Execute(SQL)
					allsavepic=allsavepic+1
					end if
				end if
			end if
		next
end if
if allsavepic>0 then EnableCensorship=EnableCensorship&"<li>¼ﱾ <font color=ff0000>"&allsavepic&"</font> ͼƬݵҳͼ(¼"&piclimit&")"
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'XXXXXXXXX [ͼNν] XXXXXXXXXXX
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX















5Default.aspļĴҵ´飺######################################


<table cellspacing=1 cellpadding=5 width=100% class=CommonListArea>
	<tr class=CommonListTitle>
		<td></td>
	</tr>
	<tr class="CommonListCell">
		<td>
			<marquee onMouseOver= .... .....
		</td>
	</tr>
</table>

<%
End If
Rs.Close


      һ(ע⣬ )´룺#####################









'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'XXX                                      XXX 
'XXX         XXXXXXXX      XXX   XX       XXX
'XXX         XXX    XX    XXX XXX         XXX
'XXX        XXX    XX    XXXX             XXX
'XXX       XXX    XX    XXX  XX           XXX 
'XXX      XXXXXXXX     XXX     XXX        XXX
'XXX                                      XXX
'XXXXXXXXX [DKͼv1.7ҳοʼ] XXXXXXXXXXXX
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
imgnum=11 'ҳʾͼƬԸ

'ע⣺ҳͼƬֱӴ򿪵ĲͼƬҳӣü±ļ dk_newpic_plus.asp ڿͷõĵط

imgheight=140  'ͼƬƶʱͼƬʾĸ߶ֵ
imglistshowset=1  'ͬʱʾNʱͼƬƶʱֵΪ1
                  ' õƬЧ ʾͼƬֵΪ2

'õʾͼƬһʾʱ䣬ͼƬһţڶֿʼ²ʾ,1000Ϊ1
imghdsec="2900" 'õʾģʽ£ʾڶֿʼÿͼƬͣʱ䣬1000Ϊ1룬ĬΪ2900

setnum=0 'ֵĲҳ1024X768ֱҲ޶Ϊ800X600ʾǾҪΪ210ֵĬΪ0ֵԽ󣬱صԽ
noorderbyid="no" 'ʾͼƬд yesд no

howshow=1 'ͬʱʾͼƬӡǿظֵΪ1ֻʾͼƬֵΪ2
scrollamount=3  'Ϊ2ʱͼƬƶٶȣֵԽԽ

ShowTopic=10 'ʾϢӡǿظȵӵı
jumptofile="ShowPost" 'ӺļΪ"ShowPost"ģʽΪ"news"ģʽnews.aspļ
kfids="" 'ҪųЩӱⲻʾбID | ָ kfids="3|19" ǾͲʾforumidΪ39ӱ

'ĸбʾʱ1234Ҫֱʾ
newmsg_1=1   'ͼƬʾţ
newmsg_2=2   '·ʾţ
newmsg_3=3   'ǿʾţ
newmsg_4=4   'ظʾţ
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

'########################################################
On Error Resume Next
rs.open "select * from [DK_NEWPIC_PLUS]",conn,1,1:rs.close
If err Then 
'ҳ
Response.Clear
response.write "<font color=800000 size=4><b>ܰʾû DKҳͼ İװ</b>...</font>"
if IsSqlDataBase=0 then
response.write "<br><center><font color=800000 size=3>̳ACCݿ⣬[<a href=DK_NEWPIC_UP.ASP target=_blank></a>]򿪡DK_NEWPIC_UP.ASPδϴڲҵϴĿ¼</font></center>"
elseif IsSqlDataBase=1 then
response.write "<br><center><font color=800000 size=3>SQLݿ̳ûο װ˵/װ취 SQLݿİװаװ</font></center>"
end if
Response.End
End If
On Error GoTo 0
'########################################################



if kfids<>empty then
if instr(kfids,"|") then
set kfids_t=nothing
kfids_t=split(kfids,"|")
for ikfids=0 to ubound(kfids_t)
if isnumeric(""&kfids_t(ikfids)&"") then
kfidall=kfidall&" and forumid<>"&int(kfids_t(ikfids))
end if
next
else
if isnumeric(""&kfids&"") then kfidall=" and forumid<>"&kfids
end if
end if
if howshow<>2 then response.write "<script>"&vbcrlf&"//######## ´IPSCԭBBSXPҳ±Զض #########"&vbcrlf&"function dk_topic_cut2(showtopic10,showfont){"&vbcrlf&"var All2="&chr(34)&"|a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z|A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z|0|1|2|3|4|5|6|7|8|9|!|@|#|$|%|^|&|*|(|)|_|+|=|-|[|{|]|}|\|;|:|'|<|,|>|.|/|?|`|~| |"&chr(34)&" "&vbcrlf&"var checknum=0;"&vbcrlf&"var anum=1;"&vbcrlf&"var showallt = "&chr(34)&""&chr(34)&";"&vbcrlf&"var showallt"&vbcrlf&"var bnum=0;"&vbcrlf&"if (showfont != ''){document.write(showfont);}"&vbcrlf&"for(i=0;i<=showtopic10.length;i++) {"&vbcrlf&"checknum=checknum+60;"&vbcrlf&"if (All2.indexOf("&chr(34)&"|"&chr(34)&"+showtopic10.substring(i-1,i)+"&chr(34)&"|"&chr(34)&") != -1){checknum=checknum-30;bnum=bnum-30;anum=anum*(-1);}"&vbcrlf&"if (checknum<=document.body.clientWidth-"&setnum+30&"){document.write(showtopic10.substring(i-1,i));bnum=bnum+60;}"&vbcrlf&"}"&vbcrlf&"if (anum==-1 && checknum>document.body.clientWidth-"&setnum+60&"){if (((bnum/30)>=32 && (bnum/30)<32) || ((bnum/30)>=23 && (bnum/30)<24) ){document.write("&chr(34)&".."&chr(34)&");}else{document.write("&chr(34)&"..."&chr(34)&");}}"&vbcrlf&"if (anum==1 && checknum>document.body.clientWidth-"&setnum+60&"){document.write("&chr(34)&".."&chr(34)&");}"&vbcrlf&"if (showfont != ''){document.write("&chr(34)&"<\/font>"&chr(34)&");}"&vbcrlf&"}"&vbcrlf&"</script>"
if howshow=2 then
response.write "<table cellspacing=1 cellpadding=5 width=100% border=0 class=CommonListArea align=center><tr class=CommonListTitle><td valign=center align=middle width=100% >..::ͼƬ::..</td></tr><tr height=25 class=CommonListCell>"
else
response.write "<table cellspacing=1 cellpadding=5 width=100% border=0 class=CommonListArea align=center><tr class=CommonListTitle>"
for imsgdesc=0 to 4
if imsgdesc=newmsg_1 then response.write "<td valign=center align=middle width=25% class=a1>..::ͼƬ::..<span style="&chr(34)&"font-size: 9pt"&chr(34)&" id="&chr(34)&"imgid3"&chr(34)&"></span></td>"
if imsgdesc=newmsg_2 then response.write "<td valign=center align=middle width=25% class=a1>..::·::..</td>"
if imsgdesc=newmsg_3 then response.write "<td valign=center align=middle width=25% class=a1>..::ǿ::.. </td>"
if imsgdesc=newmsg_4 then response.write "<td valign=center align=middle width=25% class=a1>..::ظ::.. </td>"
next
response.write "</tr><tr class=CommonListCell height=25>"
end if
sfind="order by id Desc"
if noorderbyid="yes" then sfind=""
sql="select top "&imgnum+11&" id,username,picreadme,addwhen,picurl from [DK_NEWPIC_PLUS] where nosee=0 "&sfind&""
rs.Open sql,Conn,1,3
iimgnum=0'ʱ
if howshow=2 then response.write "<td  align=center>"
do while not rs.eof and iimgnum<imgnum

if instr(rs("picurl"),"/face")>0 or  instr(rs("picurl"),"/emotions")>0 then'Զɾ顢ͷͼƬ
rs.delete
rs.update
rs.movenext
	do while not rs.eof
	if instr(rs("picurl"),"/face")>0 or  instr(rs("picurl"),"/emotion")>0 or  instr(rs("picurl"),"/affix.gif")>0 then
	rs.delete
	rs.update
	rs.movenext
	else
	iimgnum=iimgnum+1
	exit do
	end if
	loop
else
iimgnum=iimgnum+1
end if


if howshow=2 then
showpic=""&showpic&"<td align='center'><A HREF='dk_newpic_plus.asp?menu=showpic&id="&rs("id")&"' title='⣺"&ReplaceText(rs("picreadme"),"<[^>]*>","")&" &#13;&#10;ṩߣ"&rs("username")&"&#13;&#10;ʱ䣺"&rs("addwhen")&"' target='_blank'><IMG SRC='"&rs("picurl")&"' style='border: 0 solid #000000' width=140 height=120 border=0></A></td>"
else
if imglistshowset=2 then'õƬЧӱ
  if imghrefall1=empty then
  imghrefall1=""&rs("picurl")&""
  else
  imghrefall1=imghrefall1&"|"&rs("picurl")
  end if
  if imghrefall2=empty then
  imghrefall2="⣺"&ReplaceText(rs("picreadme"),"<[^>]*>","")&" \nṩߣ"&rs("username")&" \nʱ䣺"&rs("addwhen")&""
  else
  imghrefall2=imghrefall2&"|⣺"&ReplaceText(rs("picreadme"),"<[^>]*>","")&" \nṩߣ"&rs("username")&" \nʱ䣺"&rs("addwhen")&""
  end if  
    if imghrefall3=empty then
  imghrefall3=""&rs("id")&""
  else
  imghrefall3=imghrefall3&"|"&rs("id")&""
  end if  
else
showpic1=""&showpic1&"<br><br><A HREF='dk_newpic_plus.asp?menu=showpic&id="&rs("id")&"' title="&chr(34)&"⣺"&ReplaceText(rs("picreadme"),"<[^>]*>","")&"&#13;&#10;ṩߣ"&rs("username")&"&#13;&#10;ʱ䣺"&rs("addwhen")&""&chr(34)&" target='_blank'><IMG SRC='"&rs("picurl")&"' style='border: 0 solid #000000' width='170' border='0'></A>"
end if

end if
rs.movenext
loop
rs.close
if howshow=2 then
response.write "<marquee onMouseOver=this.stop() onMouseOut=this.start() border=0 align=middle scrollamount="&scrollamount&" direction=left scrolldelay=60 behavior=alternate width=100% ><table border='0' cellspacing='1' cellpadding='3' align=center width='98%'>"&showpic&"</table></marquee>"
else
  if imglistshowset=2 then'õƬЧʾ
  showpic1="<td align=center valign=center><a href=dksoft id=imgid1 target=_blank title="&chr(34)&"dksoft"&chr(34)&"><span style="&chr(34)&"font-size: 9pt"&chr(34)&"><img id=imgid2 src=images/loading.gif border=0 onload="&chr(34)&"javascript:if(this.width>170){this.width=170};if(this.height>"&imgheight&"){this.height="&imgheight&";if (i99<1){i99++;countDown8(1)};}else{if (i99<1){i99++;countDown8(1)};};"&chr(34)&" onmouseover="&chr(34)&"javascript:if(this.width>170){this.width=170};i66++;"&chr(34)&" onmouseout="&chr(34)&"javascript:i66=0;countDown8(1)"&chr(34)&"></span></a>"
 'ʾjavascript
 showpic1=showpic1&vbcrlf&"<script>"&vbcrlf&"//######## ´IPSCԭBBSXPҳͼͼƬĻõʾģʽ #########"&vbcrlf&""
 showpic1=showpic1&vbcrlf&"var imghrefall1="&chr(34)&imghrefall1&chr(34)&""
 showpic1=showpic1&vbcrlf&"var imghrefall2="&chr(34)&imghrefall2&chr(34)&""
 showpic1=showpic1&vbcrlf&"var imghrefall3="&chr(34)&imghrefall3&chr(34)&""
 showpic1=showpic1&vbcrlf&"var imglist=imghrefall1.split ('|'); "
 showpic1=showpic1&vbcrlf&"var i88=imglist.length"
 showpic1=showpic1&vbcrlf&"var i77=0"
 showpic1=showpic1&vbcrlf&"var i99=0"
 showpic1=showpic1&vbcrlf&"var i66=0" 
 showpic1=showpic1&vbcrlf&"function countDown8(secs8){"
 showpic1=showpic1&vbcrlf&"if (i66==0){"  
 showpic1=showpic1&vbcrlf&"if (imghrefall1!=''){" 
 showpic1=showpic1&vbcrlf&"i77++;"
 showpic1=showpic1&vbcrlf&"imgid1.href="&chr(34)&"dk_newpic_plus.asp?menu=showpic&id="&chr(34)&"+imghrefall3.split("&chr(34)&"|"&chr(34)&")[i77-1];"
 showpic1=showpic1&vbcrlf&"imgid1.title=imghrefall2.split("&chr(34)&"|"&chr(34)&")[i77-1];"
 showpic1=showpic1&vbcrlf&"imgid2.src=imghrefall1.split("&chr(34)&"|"&chr(34)&")[i77-1];"
 showpic1=showpic1&vbcrlf&"imgid3.innerText="&chr(34)&"["&chr(34)&"+i77+"&chr(34)&"/"&chr(34)&"+i88+"&chr(34)&"]"&chr(34)&";"
 showpic1=showpic1&vbcrlf&"if(i77>=i88){i77=0;i99++};"
 showpic1=showpic1&vbcrlf&"if (i99>0){"
 showpic1=showpic1&vbcrlf&"setTimeout("&chr(34)&"countDown8(1)"&chr(34)&","&imghdsec&");"
 showpic1=showpic1&vbcrlf&"}"&vbcrlf&"}"&vbcrlf&"}"&vbcrlf&"}"
 showpic1=showpic1&vbcrlf&"countDown8(1);"
 showpic1=showpic1&vbcrlf&"</script>"&vbcrlf
   else
  showpic1="<td align=center><marquee onMouseOver=this.stop() onMouseOut=this.start() border=0 align=middle scrollamount=1 direction=up scrolldelay=60 behavior=scroll width=100% height='"&imgheight&"'><p align=center>"&showpic1&"</p></marquee>"
  end if
end if
showpic1=showpic1&"</td>"
if howshow=1 then
showpic2="<td valign=top>"
sql="select top "&ShowTopic&" Threadid,ThreadEmoticonID,topic from [BBSXP_Threads] where Visible<>2 "&kfidall&"  order by Threadid Desc"
rs.Open sql,Conn
Do While Not RS.EOF
if not isnumeric(""&rs("ThreadEmoticonID")&"") then:icon=0:else:icon=rs("ThreadEmoticonID"):end if
'******** ѱⳤ̽Σͬ ԭIPSC ********
topic=Replace(rs("topic"),"&nbsp;",""):topic=Replace(topic,"&#32;",""):topic=Replace(topic,"&lt;","<"):topic=Replace(topic,"&gt;",">"):topic_2=""
if instr(rs("topic"),"</font>")>0 then
topic_2=Replace(rs("topic"),"</font>","")
topic_1=split(topic_2,">")
topic_2=topic_1(0)&">"
set topic_1=nothing
if instr(topic_2,"<font")<1 then topic_2=""
end if
topic=ReplaceText(topic,"<[^>]*>","")
showpic2=showpic2&"<IMG src=images/Emoticons/"&icon&".gif border=0 width=12 height=12 alt='"&ReplaceText(rs("topic"),"<[^>]*>","")&"'> <a href="&jumptofile&".asp?ThreadID="&rs("Threadid")&"&ID="&rs("Threadid")&" title='"&ReplaceText(rs("topic"),"<[^>]*>","")&"'><script>dk_topic_cut2('"&topic&"','"&topic_2&"')</script></a><br>"
topic_2=""
'*************** END ****************
RS.MoveNext
loop
RS.Close
showpic2=showpic2&vbcrlf&"</td>"
showpic3=showpic3&vbcrlf&"<td valign=top>" '---------------------
sql="select top "&ShowTopic&" Threadid,ThreadEmoticonID,topic from [BBSXP_Threads] where Visible<>2 and posttime>"&SqlNowString&"-7 "&kfidall&" order by TotalViews Desc,Threadid"
rs.Open sql,Conn
Do While Not RS.EOF
if not isnumeric(""&rs("ThreadEmoticonID")&"") then:icon=0:else:icon=rs("ThreadEmoticonID"):end if
topic=Replace(rs("topic"),"&nbsp;",""):topic=Replace(topic,"&#32;",""):topic=Replace(topic,"&lt;","<"):topic=Replace(topic,"&gt;",">"):topic_2=""
if instr(rs("topic"),"</font>")>0 then
topic_2=Replace(rs("topic"),"</font>","")
topic_1=split(topic_2,">")
topic_2=topic_1(0)&">"
set topic_1=nothing
if instr(topic_2,"<font")<1 then topic_2=""
end if
topic=ReplaceText(topic,"<[^>]*>","")
showpic3=showpic3&"<IMG src=images/Emoticons/"&icon&".gif border=0 width=12 height=12 alt='"&ReplaceText(rs("topic"),"<[^>]*>","")&"'> <a href="&jumptofile&".asp?ThreadID="&rs("Threadid")&"&ID="&rs("Threadid")&" title="&ReplaceText(rs("topic"),"<[^>]*>","")&"><script>dk_topic_cut2('"&topic&"','"&topic_2&"')</script></a><br>"
topic_2=""
RS.MoveNext
loop
RS.Close     
showpic3=showpic3&vbcrlf&"</td>"
showpic4=showpic4&vbcrlf&"<td valign=top>" '---------------------
sql="select top "&ShowTopic&" Threadid,ThreadEmoticonID,topic from [BBSXP_Threads] where Visible<>2  and posttime>"&SqlNowString&"-7 "&kfidall&" order by TotalReplies Desc,Threadid"
rs.Open sql,Conn
Do While Not RS.EOF
if not isnumeric(""&rs("ThreadEmoticonID")&"") then:icon=0:else:icon=rs("ThreadEmoticonID"):end if
topic=Replace(rs("topic"),"&nbsp;",""):topic=Replace(topic,"&#32;",""):topic=Replace(topic,"&lt;","<"):topic=Replace(topic,"&gt;",">"):topic_2=""
if instr(rs("topic"),"</font>")>0 then
topic_2=Replace(rs("topic"),"</font>","")
topic_1=split(topic_2,">")
topic_2=topic_1(0)&">"
set topic_1=nothing
if instr(topic_2,"<font")<1 then topic_2=""
end if
topic=ReplaceText(topic,"<[^>]*>","")
showpic4=showpic4&"<IMG src=images/Emoticons/"&icon&".gif border=0 width=12 height=12 alt='"&ReplaceText(rs("topic"),"<[^>]*>","")&"'> <a href="&jumptofile&".asp?ThreadID="&rs("Threadid")&"&ID="&rs("Threadid")&" title="&ReplaceText(rs("topic"),"<[^>]*>","")&"><script>dk_topic_cut2('"&topic&"','"&topic_2&"')</script></a><br>"
topic_2=""
RS.MoveNext
loop
RS.Close   
showpic4=showpic4&vbcrlf&"</td>"
for imsgdesc=0 to 4
if imsgdesc=newmsg_1 then DKNewList=DKNewList&showpic1
if imsgdesc=newmsg_2 then DKNewList=DKNewList&showpic2
if imsgdesc=newmsg_3 then DKNewList=DKNewList&showpic3
if imsgdesc=newmsg_4 then DKNewList=DKNewList&showpic4
next
DKNewList=replace(DKNewList,"brow/0.gif border=0 width=12 height=12","icon_post_show.gif border=0")
response.write DKNewList
end if'if howshow=1...
response.write "</tr></table><br>"
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'XXXXXXXXXXXXXXX [DKͼҳν] XXXXXXXXXXXXXX













6޸ɣ#############################################################



